\ condthens 05.3.21 NAB
\ (Wil Baden)

0 constant cond  immediate

: thens
  begin  ?dup while  postpone then
  repeat ; immediate
